home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / F / FilmPro.cpt / Vendors / background_2722.txt < prev    next >
Encoding:
Text File  |  1988-04-17  |  11.7 KB  |  571 lines
  1. -- background: 2722 from stack: in
  2. -- bmap block id: 2308
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Vendors
  6. ----- HyperTalk script -----
  7. on openstack
  8.   hide background field "hidden keywords"
  9.  
  10.  
  11. end openstack
  12.  
  13. on closestack
  14.   if the freesize of this stack > 0.15 * the size of this stack then
  15.     set cursor to 4
  16.     domenu "compact stack"
  17.   end if
  18. end closestack
  19.  
  20.  
  21.  
  22.  
  23. -- part 1 (button)
  24. -- low flags: 00
  25. -- high flags: 0000
  26. -- rect: left=253 top=25 right=58 bottom=297
  27. -- title width / last selected line: 0
  28. -- icon id / first selected line: 0 / 0
  29. -- text alignment: 1
  30. -- font id: 0
  31. -- text size: 12
  32. -- style flags: 0
  33. -- line height: 16
  34. -- part name: Keywords
  35. ----- HyperTalk script -----
  36. on mouseUp
  37.   play "harpsichord"
  38.   show background field "hidden keywords"
  39.   answer "New Keywords will replace old ones." with "Cancel" or "Okay"
  40.   if it is "okay" then
  41.     ask "Enter Keywords for Vendor"
  42.     put it into background field "hidden keywords"
  43.   end if
  44.   hide background field "hidden keywords"
  45.  
  46.  
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 2 (button)
  52. -- low flags: 00
  53. -- high flags: 0000
  54. -- rect: left=305 top=28 right=57 bottom=335
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 8538 / 8538
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: find
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   play harpsichord
  66.   domenu "find..."
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 3 (button)
  72. -- low flags: 00
  73. -- high flags: 0000
  74. -- rect: left=345 top=26 right=57 bottom=380
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 20186 / 20186
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Sort
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   play "harpsichord"
  86.   answer "Sort all cards according to:" with "Contact" or  "Company" or "Cancel"
  87.   if it is "Contact"
  88.   then sort by last word of first line of bkgnd field 2
  89. else if it is "Company"
  90. then sort by first word of second line of bkgnd field 2
  91.  
  92.  
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 4 (button)
  98. -- low flags: 00
  99. -- high flags: 0003
  100. -- rect: left=429 top=31 right=55 bottom=458
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 10610 / 10610
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Dial
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   dial line one of field "phone" with modem "ATDT"
  112.  
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 5 (button)
  118. -- low flags: 00
  119. -- high flags: 2000
  120. -- rect: left=245 top=309 right=332 bottom=271
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 1014 / 1014
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Prev
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   visual effect scroll right fast to black
  132.   visual effect scroll right fast
  133.   go to prev card
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 6 (button)
  139. -- low flags: 00
  140. -- high flags: 2000
  141. -- rect: left=277 top=309 right=332 bottom=302
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 1013 / 1013
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Next
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   visual effect scroll left fast to black
  153.   visual effect scroll left fast
  154.   go to next card
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 30 (button)
  160. -- low flags: 00
  161. -- high flags: 2000
  162. -- rect: left=389 top=25 right=60 bottom=420
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 1004 / 1004
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Letter
  171. ----- HyperTalk script -----
  172. on mouseup
  173.   get the loc of bkgnd field "remarks"
  174.   click at it
  175.   tabkey
  176.   domenu "copy text"
  177.   play harpsichord
  178.   ask "Which Word Processing Program?"
  179.   put it into wp
  180.   if it is not empty then
  181.     open wp
  182.   else if it is empty then
  183.     exit mouseup
  184.   end if
  185.  
  186. end mouseup
  187.  
  188.  
  189.  
  190. -- part 7 (button)
  191. -- low flags: 00
  192. -- high flags: 2000
  193. -- rect: left=212 top=28 right=56 bottom=246
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 32462 / 32462
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: Button Help 
  202. ----- HyperTalk script -----
  203.  
  204.  
  205. on mouseup
  206.   push this card
  207.   set cursor to 4
  208.   visual effect barn door open
  209.   go to stack "FilmPro Help"
  210. end mouseup
  211.  
  212.  
  213.  
  214. -- part 9 (button)
  215. -- low flags: 00
  216. -- high flags: 0000
  217. -- rect: left=466 top=25 right=58 bottom=505
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 1007 / 1007
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: Print
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   play harpsichord
  229.   answer "Proceed with Printing?" with "This Card" or "This Stack" or "Cancel"
  230.   if it is "This Card" then domenu "Print card"
  231.   else if it is "This Stack" then domenu "Print stack..."
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 11 (button)
  237. -- low flags: 00
  238. -- high flags: 2000
  239. -- rect: left=4 top=218 right=254 bottom=40
  240. -- title width / last selected line: 65535
  241. -- icon id / first selected line: -15743 / 49793
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: Crews Stack Button
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   set cursor to 4
  251.   push this card
  252.   visual effect dissolve  to white
  253.   visual effect dissolve
  254.   go to stack crews
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part 12 (button)
  260. -- low flags: 00
  261. -- high flags: 2000
  262. -- rect: left=0 top=259 right=294 bottom=43
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 9761 / 9761
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: Locations Stack Button
  271. ----- HyperTalk script -----
  272. on mouseUp
  273.   set cursor to 4
  274.   push card
  275.   visual effect dissolve  to white
  276.   visual effect dissolve
  277.   go to stack "Locations"
  278.  
  279. end mouseUp
  280.  
  281.  
  282.  
  283.  
  284. -- part 13 (button)
  285. -- low flags: 00
  286. -- high flags: 2000
  287. -- rect: left=1 top=61 right=98 bottom=43
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 2002 / 2002
  290. -- text alignment: 1
  291. -- font id: 0
  292. -- text size: 12
  293. -- style flags: 0
  294. -- line height: 16
  295. -- part name: Client Stack Button
  296. ----- HyperTalk script -----
  297. on mouseUp
  298.   set cursor to 4
  299.   push this card
  300.   visual effect dissolve  to white
  301.   visual effect dissolve
  302.   go to stack "Clients"
  303. end mouseUp
  304.  
  305.  
  306.  
  307. -- part 14 (button)
  308. -- low flags: 00
  309. -- high flags: 2000
  310. -- rect: left=47 top=301 right=331 bottom=79
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 29114 / 29114
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: return
  319. ----- HyperTalk script -----
  320. on mouseUp
  321.   visual effect wipe left fast to black
  322.   visual effect wipe right fast
  323.   pop card
  324. end mouseUp
  325.  
  326.  
  327.  
  328. -- part 8 (button)
  329. -- low flags: 00
  330. -- high flags: 2000
  331. -- rect: left=0 top=24 right=57 bottom=43
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: FilmPro
  340. ----- HyperTalk script -----
  341. on mouseup
  342.   set cursor to 4
  343.   visual effect dissolve to white
  344.   visual effect dissolve
  345.   go to card id 2844 of stack "FilmPro "
  346. end mouseUp
  347.  
  348.  
  349.  
  350. -- part 15 (button)
  351. -- low flags: 00
  352. -- high flags: 2000
  353. -- rect: left=7 top=187 right=213 bottom=35
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 0
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: Production Notes
  362. ----- HyperTalk script -----
  363. on mouseUp
  364.   set cursor to 4
  365.   push this card
  366.   visual effect dissolve  to white
  367.   visual effect dissolve
  368.   go to last card in stack Memos
  369. end mouseUp
  370.  
  371.  
  372.  
  373. -- part 16 (button)
  374. -- low flags: 00
  375. -- high flags: 2000
  376. -- rect: left=4 top=145 right=182 bottom=41
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 18814 / 18814
  379. -- text alignment: 1
  380. -- font id: 0
  381. -- text size: 12
  382. -- style flags: 0
  383. -- line height: 16
  384. -- part name: Call Sheets
  385. ----- HyperTalk script -----
  386. on mouseUp
  387.   set cursor to 4
  388.   push this card
  389.   visual effect dissolve  to white
  390.   visual effect dissolve
  391.   go to last card in stack Call Sheets
  392.  
  393. end mouseUp
  394.  
  395.  
  396.  
  397. -- part 19 (button)
  398. -- low flags: 00
  399. -- high flags: 2000
  400. -- rect: left=1 top=109 right=138 bottom=40
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 1
  404. -- font id: 0
  405. -- text size: 12
  406. -- style flags: 0
  407. -- line height: 16
  408. -- part name: jobs stack button
  409. ----- HyperTalk script -----
  410. on mouseUp
  411.   set cursor to 4
  412.   push this card
  413.   visual effect dissolve  to white
  414.   visual effect dissolve
  415.   go to last card in stack Job File
  416. end mouseUp
  417.  
  418.  
  419.  
  420. -- part 20 (field)
  421. -- low flags: 80
  422. -- high flags: 0001
  423. -- rect: left=208 top=24 right=58 bottom=503
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 0 / 0
  426. -- text alignment: 0
  427. -- font id: 3
  428. -- text size: 12
  429. -- style flags: 0
  430. -- line height: 16
  431. -- part name: hidden keywords
  432.  
  433.  
  434. -- part 22 (field)
  435. -- low flags: 00
  436. -- high flags: 6000
  437. -- rect: left=176 top=67 right=136 bottom=498
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 0
  441. -- font id: 3
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: Name and Address
  446.  
  447.  
  448. -- part 23 (field)
  449. -- low flags: 00
  450. -- high flags: 6000
  451. -- rect: left=177 top=134 right=154 bottom=498
  452. -- title width / last selected line: 0
  453. -- icon id / first selected line: 0 / 0
  454. -- text alignment: 0
  455. -- font id: 3
  456. -- text size: 12
  457. -- style flags: 0
  458. -- line height: 14
  459. -- part name: Phone
  460.  
  461.  
  462. -- part 24 (field)
  463. -- low flags: 00
  464. -- high flags: 6000
  465. -- rect: left=154 top=156 right=176 bottom=295
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 0
  469. -- font id: 3
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 14
  473. -- part name: Receptionist
  474.  
  475.  
  476. -- part 32 (field)
  477. -- low flags: 00
  478. -- high flags: 6000
  479. -- rect: left=345 top=157 right=177 bottom=498
  480. -- title width / last selected line: 0
  481. -- icon id / first selected line: 0 / 0
  482. -- text alignment: 0
  483. -- font id: 3
  484. -- text size: 12
  485. -- style flags: 0
  486. -- line height: 14
  487. -- part name: hours
  488.  
  489.  
  490. -- part 27 (field)
  491. -- low flags: 00
  492. -- high flags: 6000
  493. -- rect: left=62 top=194 right=242 bottom=499
  494. -- title width / last selected line: 0
  495. -- icon id / first selected line: 0 / 0
  496. -- text alignment: 0
  497. -- font id: 3
  498. -- text size: 12
  499. -- style flags: 0
  500. -- line height: 14
  501. -- part name: Products
  502.  
  503.  
  504. -- part 33 (field)
  505. -- low flags: 00
  506. -- high flags: 4000
  507. -- rect: left=156 top=249 right=266 bottom=499
  508. -- title width / last selected line: 0
  509. -- icon id / first selected line: 0 / 0
  510. -- text alignment: 0
  511. -- font id: 3
  512. -- text size: 12
  513. -- style flags: 0
  514. -- line height: 16
  515. -- part name: Price breaks
  516.  
  517.  
  518. -- part 34 (field)
  519. -- low flags: 00
  520. -- high flags: 4000
  521. -- rect: left=127 top=266 right=283 bottom=499
  522. -- title width / last selected line: 0
  523. -- icon id / first selected line: 0 / 0
  524. -- text alignment: 0
  525. -- font id: 3
  526. -- text size: 12
  527. -- style flags: 0
  528. -- line height: 16
  529. -- part name: shipping
  530.  
  531.  
  532. -- part 35 (field)
  533. -- low flags: 00
  534. -- high flags: 4000
  535. -- rect: left=127 top=284 right=301 bottom=499
  536. -- title width / last selected line: 0
  537. -- icon id / first selected line: 0 / 0
  538. -- text alignment: 0
  539. -- font id: 3
  540. -- text size: 12
  541. -- style flags: 0
  542. -- line height: 16
  543. -- part name: remarks
  544.  
  545.  
  546. -- part 31 (button)
  547. -- low flags: 00
  548. -- high flags: 2000
  549. -- rect: left=3 top=299 right=333 bottom=39
  550. -- title width / last selected line: 0
  551. -- icon id / first selected line: 17343 / 17343
  552. -- text alignment: 1
  553. -- font id: 0
  554. -- text size: 12
  555. -- style flags: 0
  556. -- line height: 16
  557. -- part name: Application
  558. ----- HyperTalk script -----
  559. on mouseUp
  560.   play harpsichord
  561.   ask "Which application would you like to open?"
  562.   if it is not empty then
  563.     suspend
  564.     open it
  565.   else if it is empty then
  566.     exit mouseup
  567.   end if
  568.  
  569. end mouseUp
  570.  
  571.